COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	STRING PROCEDURE FUDGE(STRING WORD)
C00003 ENDMK
C⊗;
STRING PROCEDURE FUDGE(STRING WORD);
 BEGIN INTEGER LEN;

 RECURSIVE STRING PROCEDURE NORM(STRING WORD);
  BEGIN INTEGER T; STRING R;
  T←WORD[1 TO 1];
  R←NORM(WORD[2 TO ∞]);
  RETURN(
   IF T≥"a" ∧ T≤"z" THEN T&R ELSE
   IF T≥"A" ∧ T≤"Z" THEN (T+'40)&R ELSE R);
  END;

 RECURSIVE STRING PROCEDURE 


 WORD←NORM(WORD); LEN←LENGTH(WORD);


 IF WORD[LEN TO LEN]="e" ∧ LEN≥3 THEN
  BEGIN 
  WORD←WORD[1 TO LEN-3]&(WORD[LEN-2 TO LEN-2]-'40)&WORD[LEN-1 TO LEN-1];
  LEN←LEN-1;
  END;